object frmPlanejMensal: TfrmPlanejMensal
  Left = 669
  Top = 333
  BorderStyle = bsDialog
  Caption = 'Planejamento Mensal'
  ClientHeight = 493
  ClientWidth = 333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object tlFluxo: TcxDBTreeList
    Left = 3
    Top = 2
    Width = 326
    Height = 487
    Bands = <
      item
        FixedKind = tlbfLeft
        Options.Moving = False
        Width = 300
      end>
    BufferedPaint = False
    DataController.DataSource = dsPlanej
    DataController.ParentField = 'Mae'
    DataController.KeyField = 'Codigo'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = []
    LookAndFeel.Kind = lfFlat
    ParentFont = False
    RootValue = -1
    TabOrder = 0
    object tlFluxocxDBTreeListColumn2: TcxDBTreeListColumn
      DataBinding.FieldName = 'Descricao'
      Options.Editing = False
      Width = 275
      Position.ColIndex = 0
      Position.RowIndex = 0
      Position.BandIndex = 0
    end
    object tlFluxocxDBTreeListColumn1: TcxDBTreeListColumn
      PropertiesClassName = 'TcxCurrencyEditProperties'
      Properties.DisplayFormat = '0.00;-0.00'
      Properties.ValidateOnEnter = True
      DataBinding.FieldName = 'Valor'
      Position.ColIndex = 1
      Position.RowIndex = 0
      Position.BandIndex = 0
    end
  end
  object sqlPlanej: TSQLDataSet
    CommandText = 'Select * from PlanejMensal'#13#10'order by Codigo,Mae'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 73
    Top = 366
    object sqlPlanejSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sqlPlanejCodigo: TStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 30
    end
    object sqlPlanejMae: TStringField
      FieldName = 'Mae'
      FixedChar = True
      Size = 27
    end
    object sqlPlanejDescricao: TStringField
      FieldName = 'Descricao'
      FixedChar = True
    end
    object sqlPlanejTipo: TStringField
      FieldName = 'Tipo'
      FixedChar = True
      Size = 1
    end
    object sqlPlanejValor: TFMTBCDField
      FieldName = 'Valor'
      Precision = 18
      Size = 2
    end
  end
  object dspPlanej: TDataSetProvider
    DataSet = sqlPlanej
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 101
    Top = 366
  end
  object cdsPlanej: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspPlanej'
    BeforeEdit = cdsPlanejBeforeEdit
    AfterPost = cdsPlanejAfterPost
    Left = 129
    Top = 366
    object cdsPlanejSequencial: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsPlanejCodigo: TStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 30
    end
    object cdsPlanejMae: TStringField
      FieldName = 'Mae'
      FixedChar = True
      Size = 27
    end
    object cdsPlanejDescricao: TStringField
      FieldName = 'Descricao'
      FixedChar = True
    end
    object cdsPlanejTipo: TStringField
      FieldName = 'Tipo'
      FixedChar = True
      Size = 1
    end
    object cdsPlanejValor: TFMTBCDField
      FieldName = 'Valor'
      Precision = 18
      Size = 2
    end
  end
  object dsPlanej: TDataSource
    DataSet = cdsPlanej
    Left = 158
    Top = 366
  end
  object sqlAux: TSQLDataSet
    CommandText = 'Select * from PlanejMensal'#13#10'order by Codigo,Mae'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = dtmPrincipal.sqlPrincipal
    Left = 73
    Top = 398
    object IntegerField1: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object StringField1: TStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 30
    end
    object StringField2: TStringField
      FieldName = 'Mae'
      FixedChar = True
      Size = 27
    end
    object StringField3: TStringField
      FieldName = 'Descricao'
      FixedChar = True
    end
    object StringField4: TStringField
      FieldName = 'Tipo'
      FixedChar = True
      Size = 1
    end
    object FMTBCDField1: TFMTBCDField
      FieldName = 'Valor'
      Precision = 18
      Size = 2
    end
  end
  object dspAux: TDataSetProvider
    DataSet = sqlAux
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 101
    Top = 398
  end
  object cdsAux: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspAux'
    AfterPost = cdsAuxAfterPost
    Left = 129
    Top = 398
    object IntegerField2: TIntegerField
      FieldName = 'Sequencial'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object StringField5: TStringField
      FieldName = 'Codigo'
      FixedChar = True
      Size = 30
    end
    object StringField6: TStringField
      FieldName = 'Mae'
      FixedChar = True
      Size = 27
    end
    object StringField7: TStringField
      FieldName = 'Descricao'
      FixedChar = True
    end
    object StringField8: TStringField
      FieldName = 'Tipo'
      FixedChar = True
      Size = 1
    end
    object FMTBCDField2: TFMTBCDField
      FieldName = 'Valor'
      Precision = 18
      Size = 2
    end
  end
  object dsAux: TDataSource
    DataSet = cdsAux
    Left = 158
    Top = 398
  end
end
